home *** CD-ROM | disk | FTP | other *** search
/ PC Format (UK) 75 / PC Format 75 - Nov 1997.iso / Tech / WM30DEMO / KRSTART.WBS < prev    next >
Text File  |  1996-04-09  |  2KB  |  53 lines
  1. Sub Main()
  2.     dim wmdirectory as string, sep as string
  3.     dim currentdirectory as string
  4.     currentdirectory = CurDir$
  5.     if basic.os = ebWin16 or basic.os = ebWin32 then
  6.          wmdirectory = wm.StartupDirectory
  7.     else
  8.         wmdirectory = CurDir$
  9.     end if
  10.     ChDir(wmdirectory)
  11.     sep = Basic.PathSeparator$        ' Stores the appropriate path separator for this platform
  12.     ' Define all the files with a wbs extension inside the scripts directory/folder
  13.     If (Dir$("SCRIPTS", ebDirectory) = "SCRIPTS") THEN    ' The directory/folder SCRIPTS exists
  14.         Dim f(20) as string, fullname as string, scriptdir as string
  15.         scriptdir = wmdirectory + sep + "SCRIPTS" 
  16.         ChDir(scriptdir)                    'Set to the SCRIPT directory
  17.         f(1) = Dir$("*.wbs")                ' Find the first file with a .wbs extension
  18.         i% = 1
  19.         While (f(i) <> "") And (i < 20)        'Define the first 20 scripts found
  20.             fullname = scriptdir + sep + f(i)
  21.             WM.InsertMenuItem i, f(i), fullname
  22.             i = i+1
  23.             f(i) = Dir$                        ' Get next file with a .wbs extension
  24.         Wend
  25.     End If
  26.     ' Define the "Official KR" scripts
  27.     ' Demo scripts
  28.     Dim krscripts as string
  29.     krscripts = scriptdir + sep + "KRDEMOS"
  30.     If (Dir$("KRDEMOS",ebDirectory) = "KRDEMOS") then    ' The directory/folder KRDEMOS exists
  31.         WM.InsertMenuItem 1,"Optimize", krscripts + sep + "optimize.wbs"
  32.         WM.InsertMenuItem 2,"Create Constraint", krscripts + sep + "bldcons.wbs"
  33.         WM.InsertMenuItem 3,"Document Model", krscripts + sep + "docinfo.wbs"
  34.         WM.InsertMenuItem 4,"Zoom to Extent", krscripts + sep + "krzoom.wbs"
  35.         WM.InsertMenuItem 5,"Measure Between Points", krscripts + sep + "measure.wbs"
  36.         WM.InsertMenuItem 6,"Multiple File Run", krscripts + sep + "repeat.wbs"
  37.         WM.InsertMenuItem 7,"Flip Polygon", krscripts + sep + "flipoly.wbs"
  38.     end If        
  39.      ' Run the User startup file
  40.     dim userstartup as string
  41.      userstartup = wmdirectory + sep + "startup.wbs"
  42.     If FileExists(userstartup) then
  43.          wm.RunScript userstartup
  44.     end If
  45.     ' Run the demonstration script
  46.     dim demotour as string
  47.      demotour = krscripts + sep + "demo.wbs"
  48.     If FileExists(demotour) then
  49.          wm.RunScript demotour
  50.     end If
  51.     ChDir(currentdirectory)
  52. End Sub
  53.